home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo: Applications / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Publish It! Easy 2.2 / Publish It! Easy 2.2 Demo / †Publish It! Easy 2.2 Demo.rsrc / STR#_1030.txt < prev    next >
Encoding:
Text File  |  1992-08-10  |  727 b   |  94 lines
  1.  
  2. |F0 |F1 moveto
  3.  
  4.  
  5. |F0 |F1 rmoveto
  6.  
  7.  
  8. |F0 |F1 lineto
  9.  
  10.  
  11. |F0 |F1 rlineto
  12.  
  13.  
  14. mark F |I0<|H1>pat cleartomark
  15.  
  16.  
  17.  
  18.  
  19. |F0 1 scale
  20.  
  21.  
  22. |F0 0
  23.  
  24. |F0 |F1 |F2 |F3 0 rc
  25.  
  26.  
  27. |F0 |F1 |F2 |F3 1 rc
  28.  
  29.  
  30. |F0 |F1 |F2 |F3 |F4 |F5 0 rr
  31.  
  32.  
  33. |F0 |F1 |F2 |F3 |F4 |F5 1 rr
  34.  
  35.  
  36. |F0 |F1 |F2 |F3 0 ov
  37.  
  38.  
  39. |F0 |F1 |F2 |F3 1 ov
  40.  
  41.  
  42. /palmmtx matrix currentmatrix def
  43.  
  44.  
  45. palmmtx setmatrix
  46.  
  47.  
  48.  1 1 pen
  49.  
  50.  
  51. stroke
  52.  
  53.  
  54. currentpoint newpath moveto
  55.  
  56.  
  57. closepath
  58.  
  59.  
  60. /palmx currentpoint pop def
  61. /palmy currentpoint exch pop def
  62.  
  63.  
  64. palmx currentpoint pop sub 0 rlineto
  65.  
  66.  
  67. palmy |F0 sub palmx palmy |F1 add currentpoint pop 
  68.  
  69. 0 rc
  70.  
  71.  
  72. |F4 |F5 0 rr
  73.  
  74.  
  75. 0 ov
  76.  
  77.  
  78. currentfont |F0 scalefont setfont
  79.  
  80.  
  81. |F0 |F1 |F2 |F3 
  82.  
  83. |F0 |F1 pen
  84.  
  85.  
  86. .5 .5 pen
  87.  
  88.  
  89. .18 .18 pen
  90.  
  91.  
  92. palmy |F0 sub palmx palmy |F1 add palmx |F2 add 
  93.  
  94.